﻿Partial Public Class encPsicoSocial
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If Session("usuarioId") Is Nothing Then
                Response.Redirect("loguin.aspx")
            End If
            If Not Session("profesionId") Is Nothing Then
                If Permisos.Validar(Session("profesionId").ToString, 5) = False Then
                    Response.Redirect("Denied.aspx")
                End If
            Else
                Response.Redirect("Denied.aspx")
            End If
            If Not IsPostBack Then
                lbprofesion.Text = Session("profesion").ToString()
                lbnombre.Text = Session("nombre").ToString()
                Dim TablaId = Request.QueryString.Get("piscoId")
                Consulta_Registro(TablaId, sender, e)
                If Request.QueryString.Get("piscoId") <> "" Then
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel1, "fnCargaEdicion();")
                End If
            End If
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub

    Private Sub cargacombos(ByVal participanteId As Integer)
        Try
            Dim docmd As New Sql_Server
            docmd.Conectar()
            docmd.Combo = cboUltRegistros
            docmd.Listar_Combo("SELECT TOP (50) psico.piscosocialId, CAST(psico.fechaCreo AS varchar) + '->' + par.primerNombre + ' ' + CASE WHEN par.segundoNombre IS NULL THEN '' ELSE par.segundoNombre END + '  ' + par.primerApellido + ' ' + CASE WHEN par.segundoApellido IS NULL THEN '' ELSE par.segundoApellido END AS Nombre FROM psicosocial AS psico INNER JOIN participantes AS par ON par.participanteId = psico.participantesId WHERE (psico.participantesId = " + participanteId.ToString + ") ORDER BY psico.fechaCreo DESC")
            docmd.Desconectar()
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub

    Public Sub Consulta_Registro(ByVal Id As Integer, ByVal sender As Object, ByVal e As EventArgs)
        On Error GoTo errores
        Dim Docmd As New DoCmd, reader As System.Data.SqlClient.SqlDataReader
        Dim Qry As String
        Dim camp As Integer
        Qry = "SELECT     sico.*, par.primerNombre + ' ' + par.segundoNombre + ' ' + par.primerApellido + ' ' + par.segundoApellido AS NombreCompleto, YEAR({ fn NOW() }) - YEAR(par.fechaNacimiento) AS Edad,par.sexo FROM psicosocial AS sico INNER JOIN participantes AS par ON par.participanteId = sico.participantesId where sico.piscosocialId = " & Id
        Docmd.Conectar()
        reader = Docmd.Read_SQL(Qry)
        While reader.Read
            camp = reader.FieldCount
            For i = 0 To camp - 1
                On Error Resume Next
                If Page.Form.FindControl(reader.GetName(i)).ID <> "" Then
                    Asigna_control(Page.Form.FindControl(reader.GetName(i)), reader(i).ToString().Trim)
                End If
            Next
        End While
        reader.Close()
        Docmd.Desconectar()
        Exit Sub
errores:
        Response.Write(Err.Description)
    End Sub

    Private Sub Asigna_control(ByVal Objeto As Object, ByRef valor As String)
        Select Case Objeto.GetType.Name
            Case "HiddenField"
                If valor <> "" Then
                    Objeto.value = valor
                Else
                    Objeto.value = ""
                End If
            Case "TextBox"
                If valor <> "" Then
                    Objeto.text = valor
                Else
                    Objeto.text = ""
                End If
            Case "CheckBox"
                If valor = "Si" Then
                    Objeto.Checked = True
                Else
                    Objeto.Checked = False
                End If
            Case "RadioButtonList"
                If valor <> "" Then
                    If valor = "True" Then
                        Objeto.SelectedValue = 1
                    ElseIf valor = "False" Then
                        Objeto.SelectedValue = 0
                    Else
                        Objeto.SelectedValue = valor
                    End If
                Else
                    Objeto.SelectedIndex = -1
                End If
            Case "DropDownList"
                If valor <> "" Then
                    Objeto.SelectedValue = Objeto.Items.FindByValue(valor.Trim).Value
                Else
                    Objeto.SelectedIndex = -1
                End If
        End Select
    End Sub

    Protected Sub btnConsulta_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnConsulta.Click
        Dim where As String
        where = " 1 = 1"
        If cbotipDocumento.SelectedValue.Trim <> "-1" Then
            where = where + " and tipoDocumento = '" + cbotipDocumento.SelectedValue.Trim + "'"
        End If
        If txtDocumento.Text.Trim <> "" Then
            where = where + " and documento = '" + txtDocumento.Text.Trim + "'"
        End If
        If conPrinombre.Text.Trim <> "" Then
            where = where + " and NombreCompleto like '%" + conPrinombre.Text.Trim + "%'"
        End If
        If conSegnombre.Text.Trim <> "" Then
            where = where + " and NombreCompleto like '%" + conSegnombre.Text.Trim + "%'"
        End If
        If conPriApe.Text.Trim <> "" Then
            where = where + " and NombreCompleto like '%" + conPriApe.Text.Trim + "%'"
        End If
        If conSegApe.Text.Trim <> "" Then
            where = where + " and NombreCompleto like '%" + conSegApe.Text.Trim + "%'"
        End If
        SqlDataSource1.FilterExpression = where
        SqlDataSource1.DataBind()
    End Sub
    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles GridView1.SelectedIndexChanged
        Try
            Dim row As GridViewRow = GridView1.SelectedRow
            Dim id As Label = row.FindControl("idParticipante")
            cargacombos(id.Text.Trim)
            Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "fnListBox();")
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub
    Private Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
        Try
            Select Case e.Row.RowType
                Case DataControlRowType.DataRow
                    Dim id As Label = e.Row.FindControl("idParticipante")
                    Dim ctrlEliminar As ImageButton = CType(e.Row.Cells(0).Controls(0), ImageButton)
                    ctrlEliminar.OnClientClick = "fnOculta('" + id.Text.Trim + "','" + e.Row.Cells(5).Text.Trim + "','" + e.Row.Cells(6).Text.Trim + "','" + e.Row.Cells(4).Text.Trim + "');return true;"
                    ctrlEliminar.ToolTip = "Click para ingresar un nuevo componente psico social a " + e.Row.Cells(4).Text.Trim.ToUpper
            End Select
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub
    Protected Sub btnBusRapida_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnBusRapida.Click
        SqlDataSource1.FilterExpression = geriatriaClases.fnbusquedaRapida(txtBusquedaRapida.Text.ToString())
        SqlDataSource1.DataBind()
    End Sub

    Protected Sub BtnguardaVb_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnguardaVb.Click
        If Page.IsValid = True Then
            Dim modelo As New DataClasses1DataContext

            If IsNumeric(piscosocialId.Value) Then
                'Se trata de una edicion
                Dim Clsico = (From sico In modelo.psicosocials Where sico.piscosocialId.Equals(piscosocialId.Value.Trim) Select sico).Single()
                Clsico.asistioTerapiaPsiquiatra = asistioTerapiaPsiquiatra.SelectedValue.Trim
                Clsico.asistioTerapiaPsiquiatraDesc = asistioTerapiaPsiquiatraDesc.Text.Trim
                Clsico.asistioTerapiaPsicologica = asistioTerapiaPsicologica.SelectedValue.Trim
                Clsico.asistioTerapiaPsicologicaDesc = asistioTerapiaPsicologicaDesc.Text.Trim
                Clsico.formuloMedicamento = formuloMedicamento.SelectedValue.Trim
                Clsico.formuloMedicamentoDesc = formuloMedicamentoDesc.Text.Trim
                Clsico.apriencia = apriencia.Text.Trim
                Clsico.expectativas = expectativas.SelectedValue.Trim
                Clsico.expectativasDesc = expectativasDesc.Text.Trim
                Clsico.necesidadPsicoterapia = necesidadPsicoterapia.Text.Trim
                If txtPestana.Value.Trim >= 1 Then
                    Clsico.convive = convive.SelectedValue.Trim
                    Clsico.conviveQuien = conviveQuien.Text.Trim
                    Clsico.sisteRelacionalFamiliar = sisteRelacionalFamiliar.SelectedValue.Trim
                    Clsico.tiempoComparte = tiempoComparte.SelectedValue.Trim
                    Clsico.comparteSolo = comparteSolo.SelectedValue.Trim
                    If comparteSolo.SelectedValue.Trim = "No" Then
                        Clsico.comparteAmigos = comparteAmigos.SelectedValue.Trim
                        Clsico.comparteCompa = comparteCompa.SelectedValue.Trim
                        Clsico.comparteVecinos = comparteVecinos.SelectedValue.Trim
                        Clsico.comparteParientes = comparteParientes.SelectedValue.Trim
                    End If
                    Clsico.trabajaActualmente = trabajaActualmente.SelectedValue.Trim
                    Clsico.actividadLaboralLugar = actividadLaboralLugar.Text.Trim
                    If satisfechoLaboral.SelectedValue.Trim <> "-1" Then
                        Clsico.satisfechoLaboral = satisfechoLaboral.SelectedValue.Trim
                    End If
                    Clsico.satisfechoLaboralDesc = satisfechoLaboralDesc.Text.Trim
                    Clsico.anosTrabajoFijo = anosTrabajoFijo.Text.Trim
                    Clsico.actividadDesarrollaba = actividadDesarrollaba.Text.Trim
                    Clsico.satisfechoActvidadVieja = satisfechoActvidadVieja.SelectedValue.Trim
                    Clsico.activoSexualmente = activoSexualmente.SelectedValue.Trim
                    Clsico.extroversion = extroversion.SelectedValue.Trim
                    Clsico.introversion = introversion.SelectedValue.Trim
                    Clsico.agresividad = agresividad.SelectedValue.Trim
                    Clsico.asertividad = asertividad.SelectedValue.Trim
                    Clsico.moral = moral.SelectedValue.Trim
                    Clsico.pasivo = pasivo.SelectedValue.Trim
                    Clsico.estabilidadEmo = estabilidadEmo.SelectedValue.Trim
                    Clsico.imaginacion = imaginacion.SelectedValue.Trim
                    Clsico.seguridad = seguridad.SelectedValue.Trim
                    Clsico.activo = activo.SelectedValue.Trim
                    Clsico.individualista = individualista.SelectedValue.Trim
                    Clsico.solProblemas = solProblemas.SelectedValue.Trim
                    Clsico.sociabilidad = sociabilidad.SelectedValue.Trim
                    Clsico.sensibilidad = sensibilidad.SelectedValue.Trim
                    Clsico.dominancia = dominancia.SelectedValue.Trim
                    Clsico.responsabilidad = responsabilidad.SelectedValue.Trim
                    Clsico.suspicacia = suspicacia.SelectedValue.Trim
                    Clsico.empuje = empuje.SelectedValue.Trim
                    Clsico.observaciones = observaciones.Text.Trim
                    Clsico.recomendaciones = recomendaciones.Text.Trim
                    'fin cuando vale 1
                End If
                If txtPestana.Value.Trim >= 2 Then
                    Clsico.minimentalAno = minimentalAno.Text.Trim
                    Clsico.minimentalMes = minimentalMes.Text.Trim
                    Clsico.minimentalDia = minimentalDia.Text.Trim
                    Clsico.minimentalSemana = minimentalSemana.Text.Trim
                    Clsico.minimentalHora = minimentalHora.Text.Trim
                    Clsico.minimentalPais = minimentalPais.Text.Trim
                    Clsico.minimentalCiudad = minimentalCiudad.Text.Trim
                    Clsico.minimentalDepartamento = minimentalDepartamento.Text.Trim
                    Clsico.minimentalLugar = minimentalLugar.Text.Trim
                    Clsico.minimentalPiso = minimentalPiso.Text.Trim
                    Clsico.minimentalTresnombres = minimentalTresnombres.Text.Trim
                    Clsico.minimentalCalculo = minimentalCalculo.Text.Trim
                    Clsico.minimentalRecuerdo = minimentalRecuerdo.Text.Trim
                    Clsico.minimentalDominio = minimentalDominio.Text.Trim
                    Clsico.minimentalRepetir = minimentalRepetir.Text.Trim
                    Clsico.minimentalComprension = minimentalComprension.Text.Trim
                    Clsico.minimentalOjos = minimentalOjos.Text.Trim
                    Clsico.minimentalEscribir = minimentalEscribir.Text.Trim
                    Clsico.minimentalDiseno = minimentalDiseno.Text.Trim
                    Clsico.minimentalTotal = txtminimentalTotal.Value.Trim
                End If
                If txtPestana.Value.Trim >= 3 Then
                    Clsico.apgarSatisfaceAyuda = apgarSatisfaceAyuda.SelectedValue.Trim
                    Clsico.apgarSatisfaceParticipacion = apgarSatisfaceParticipacion.SelectedValue.Trim
                    Clsico.apgarSatisfaceDeseos = apgarSatisfaceDeseos.SelectedValue.Trim
                    Clsico.apgarSatisfaceAfecto = apgarSatisfaceAfecto.SelectedValue.Trim
                    Clsico.apgarSatisfaceTiempo = apgarSatisfaceTiempo.SelectedValue.Trim
                    Clsico.apgarTotal = txtapgarTotal.Value.Trim
                    Clsico.apgarTotalDesc = txtapgarTotalDesc.Value.Trim
                End If
                If txtPestana.Value.Trim >= 4 Then
                    Clsico.depreSatisfechoVida = depreSatisfechoVida.SelectedValue.Trim
                    Clsico.depreAbandonoActividades = depreAbandonoActividades.SelectedValue.Trim
                    Clsico.depreVidaVacia = depreVidaVacia.SelectedValue.Trim
                    Clsico.depreAburrido = depreAburrido.SelectedValue.Trim
                    Clsico.depreBuenAnimo = depreBuenAnimo.SelectedValue.Trim
                    Clsico.deprePreocupado = deprePreocupado.SelectedValue.Trim
                    Clsico.depreSienteFeliz = depreSienteFeliz.SelectedValue.Trim
                    Clsico.depreSienteDesamparo = depreSienteDesamparo.SelectedValue.Trim
                    Clsico.deprePrefiereCasa = deprePrefiereCasa.SelectedValue.Trim
                    Clsico.depreProblemasMemoria = depreProblemasMemoria.SelectedValue.Trim
                    Clsico.depreEstarVivo = depreEstarVivo.SelectedValue.Trim
                    Clsico.depreInutil = depreInutil.SelectedValue.Trim
                    Clsico.depreLlenoEnergia = depreLlenoEnergia.SelectedValue.Trim
                    Clsico.depreSinEsperanza = depreSinEsperanza.SelectedValue.Trim
                    Clsico.depreMejorOtrasPersonas = depreMejorOtrasPersonas.SelectedValue.Trim
                    Clsico.depreTotal = txtdepreTotal.Value.Trim
                    Clsico.depreTotalDesc = txtdepreTotalDesc.Value.Trim
                End If
                modelo.SubmitChanges()
                piscosocialId.Value = Clsico.piscosocialId.ToString
                If txtContinua.Value.Trim = "Si" Then
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel1, "alert('Se ha guardado correctamente');")
                Else
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel1, "alert('Se ha guardado correctamente');window.location = 'encPsicoSocial.aspx'")
                End If
            Else
                'se trata de una insercion de datos
                Dim Clsico As New psicosocial
                If participantesId.Value.Trim = "" Then
                    Exit Sub
                End If
                'new
                Clsico.usuario_id = Session("usuarioId").ToString
                Clsico.participantesId = participantesId.Value.Trim
                Clsico.fechaCreo = DateTime.Now
                Clsico.asistioTerapiaPsiquiatra = asistioTerapiaPsiquiatra.SelectedValue.Trim
                Clsico.asistioTerapiaPsiquiatraDesc = asistioTerapiaPsiquiatraDesc.Text.Trim
                Clsico.asistioTerapiaPsicologica = asistioTerapiaPsicologica.SelectedValue.Trim
                Clsico.asistioTerapiaPsicologicaDesc = asistioTerapiaPsicologicaDesc.Text.Trim
                Clsico.formuloMedicamento = formuloMedicamento.SelectedValue.Trim
                Clsico.formuloMedicamentoDesc = formuloMedicamentoDesc.Text.Trim
                Clsico.apriencia = apriencia.Text.Trim
                Clsico.expectativas = expectativas.SelectedValue.Trim
                Clsico.expectativasDesc = expectativasDesc.Text.Trim
                Clsico.necesidadPsicoterapia = necesidadPsicoterapia.Text.Trim
                If txtPestana.Value.Trim >= 1 Then
                    Clsico.convive = convive.SelectedValue.Trim
                    Clsico.conviveQuien = conviveQuien.Text.Trim
                    Clsico.sisteRelacionalFamiliar = sisteRelacionalFamiliar.SelectedValue.Trim
                    Clsico.tiempoComparte = tiempoComparte.SelectedValue.Trim
                    Clsico.comparteSolo = comparteSolo.SelectedValue.Trim
                    If comparteSolo.SelectedValue.Trim = "No" Then
                        Clsico.comparteAmigos = comparteAmigos.SelectedValue.Trim
                        Clsico.comparteCompa = comparteCompa.SelectedValue.Trim
                        Clsico.comparteVecinos = comparteVecinos.SelectedValue.Trim
                        Clsico.comparteParientes = comparteParientes.SelectedValue.Trim
                    End If
                    Clsico.trabajaActualmente = trabajaActualmente.SelectedValue.Trim
                    Clsico.actividadLaboralLugar = actividadLaboralLugar.Text.Trim
                    Clsico.satisfechoLaboral = satisfechoLaboral.SelectedValue.Trim
                    Clsico.satisfechoLaboralDesc = satisfechoLaboralDesc.Text.Trim
                    Clsico.anosTrabajoFijo = actividadDesarrollaba.Text.Trim
                    Clsico.actividadDesarrollaba = actividadDesarrollaba.Text.Trim
                    Clsico.satisfechoActvidadVieja = satisfechoActvidadVieja.SelectedValue.Trim
                    Clsico.activoSexualmente = activoSexualmente.SelectedValue.Trim
                    Clsico.extroversion = extroversion.SelectedValue.Trim
                    Clsico.introversion = introversion.SelectedValue.Trim
                    Clsico.agresividad = agresividad.SelectedValue.Trim
                    Clsico.asertividad = asertividad.SelectedValue.Trim
                    Clsico.moral = moral.SelectedValue.Trim
                    Clsico.pasivo = pasivo.SelectedValue.Trim
                    Clsico.estabilidadEmo = estabilidadEmo.SelectedValue.Trim
                    Clsico.imaginacion = imaginacion.SelectedValue.Trim
                    Clsico.seguridad = seguridad.SelectedValue.Trim
                    Clsico.activo = activo.SelectedValue.Trim
                    Clsico.individualista = individualista.SelectedValue.Trim
                    Clsico.solProblemas = solProblemas.SelectedValue.Trim
                    Clsico.sociabilidad = sociabilidad.SelectedValue.Trim
                    Clsico.sensibilidad = sensibilidad.SelectedValue.Trim
                    Clsico.dominancia = dominancia.SelectedValue.Trim
                    Clsico.responsabilidad = responsabilidad.SelectedValue.Trim
                    Clsico.suspicacia = suspicacia.SelectedValue.Trim
                    Clsico.empuje = empuje.SelectedValue.Trim
                    Clsico.observaciones = observaciones.Text.Trim
                    Clsico.recomendaciones = recomendaciones.Text.Trim
                    'fin cuando vale 1
                End If
                If txtPestana.Value.Trim >= 2 Then
                    Clsico.minimentalAno = minimentalAno.Text.Trim
                    Clsico.minimentalMes = minimentalMes.Text.Trim
                    Clsico.minimentalDia = minimentalDia.Text.Trim
                    Clsico.minimentalSemana = minimentalSemana.Text.Trim
                    Clsico.minimentalHora = minimentalHora.Text.Trim
                    Clsico.minimentalPais = minimentalPais.Text.Trim
                    Clsico.minimentalCiudad = minimentalCiudad.Text.Trim
                    Clsico.minimentalDepartamento = minimentalDepartamento.Text.Trim
                    Clsico.minimentalLugar = minimentalLugar.Text.Trim
                    Clsico.minimentalPiso = minimentalPiso.Text.Trim
                    Clsico.minimentalTresnombres = minimentalTresnombres.Text.Trim
                    Clsico.minimentalCalculo = minimentalCalculo.Text.Trim
                    Clsico.minimentalRecuerdo = minimentalRecuerdo.Text.Trim
                    Clsico.minimentalDominio = minimentalDominio.Text.Trim
                    Clsico.minimentalRepetir = minimentalRepetir.Text.Trim
                    Clsico.minimentalComprension = minimentalComprension.Text.Trim
                    Clsico.minimentalOjos = minimentalOjos.Text.Trim
                    Clsico.minimentalEscribir = minimentalEscribir.Text.Trim
                    Clsico.minimentalDiseno = minimentalDiseno.Text.Trim
                    Clsico.minimentalTotal = txtminimentalTotal.Value.Trim
                End If
                If txtPestana.Value.Trim >= 3 Then
                    Clsico.apgarSatisfaceAyuda = apgarSatisfaceAyuda.SelectedValue.Trim
                    Clsico.apgarSatisfaceParticipacion = apgarSatisfaceParticipacion.SelectedValue.Trim
                    Clsico.apgarSatisfaceDeseos = apgarSatisfaceDeseos.SelectedValue.Trim
                    Clsico.apgarSatisfaceAfecto = apgarSatisfaceAfecto.SelectedValue.Trim
                    Clsico.apgarSatisfaceTiempo = apgarSatisfaceTiempo.SelectedValue.Trim
                    Clsico.apgarTotal = txtapgarTotal.Value.Trim
                    Clsico.apgarTotalDesc = txtapgarTotalDesc.Value.Trim
                End If
                If txtPestana.Value.Trim >= 4 Then
                    Clsico.depreSatisfechoVida = depreSatisfechoVida.SelectedValue.Trim
                    Clsico.depreAbandonoActividades = depreAbandonoActividades.SelectedValue.Trim
                    Clsico.depreVidaVacia = depreVidaVacia.SelectedValue.Trim
                    Clsico.depreAburrido = depreAburrido.SelectedValue.Trim
                    Clsico.depreBuenAnimo = depreBuenAnimo.SelectedValue.Trim
                    Clsico.deprePreocupado = deprePreocupado.SelectedValue.Trim
                    Clsico.depreSienteFeliz = depreSienteFeliz.SelectedValue.Trim
                    Clsico.depreSienteDesamparo = depreSienteDesamparo.SelectedValue.Trim
                    Clsico.deprePrefiereCasa = deprePrefiereCasa.SelectedValue.Trim
                    Clsico.depreProblemasMemoria = depreProblemasMemoria.SelectedValue.Trim
                    Clsico.depreEstarVivo = depreEstarVivo.SelectedValue.Trim
                    Clsico.depreInutil = depreInutil.SelectedValue.Trim
                    Clsico.depreLlenoEnergia = depreLlenoEnergia.SelectedValue.Trim
                    Clsico.depreSinEsperanza = depreSinEsperanza.SelectedValue.Trim
                    Clsico.depreMejorOtrasPersonas = depreMejorOtrasPersonas.SelectedValue.Trim
                    Clsico.depreTotal = txtdepreTotal.Value.Trim
                    Clsico.depreTotalDesc = txtdepreTotalDesc.Value.Trim
                End If
                modelo.psicosocials.InsertOnSubmit(Clsico)
                modelo.SubmitChanges()
                piscosocialId.Value = Clsico.piscosocialId.ToString
                If txtContinua.Value.Trim = "Si" Then
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel1, "alert('Se ha guardado correctamente');")
                Else
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel1, "alert('Se ha guardado correctamente');window.location = 'encPsicoSocial.aspx'")
                End If
            End If
        End If
    End Sub

End Class